home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / exitwi / exitwin.frm < prev    next >
Encoding:
Text File  |  1995-12-05  |  1.9 KB  |  79 lines
  1. VERSION 2.00
  2. Begin Form ExitWin 
  3.    BorderStyle     =   0  'None
  4.    ClientHeight    =   2070
  5.    ClientLeft      =   2490
  6.    ClientTop       =   1740
  7.    ClientWidth     =   1695
  8.    ControlBox      =   0   'False
  9.    Height          =   2475
  10.    Icon            =   EXITWIN.FRX:0000
  11.    Left            =   2430
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    Picture         =   EXITWIN.FRX:0302
  17.    ScaleHeight     =   2070
  18.    ScaleWidth      =   1695
  19.    Top             =   1395
  20.    Width           =   1815
  21.    Begin Image pic_Opened 
  22.       Height          =   480
  23.       Left            =   0
  24.       Picture         =   EXITWIN.FRX:0604
  25.       Top             =   960
  26.       Width           =   480
  27.    End
  28.    Begin Image pic_Closed 
  29.       Height          =   480
  30.       Left            =   0
  31.       Picture         =   EXITWIN.FRX:0906
  32.       Top             =   480
  33.       Width           =   480
  34.    End
  35. End
  36. Sub Form_DblClick ()
  37.     
  38.     ShowExitDlg
  39.  
  40. End Sub
  41.  
  42. Sub Form_KeyPress (KeyAscii As Integer)
  43.  
  44.     If KeyAscii = CHAR_RETURN Then ShowExitDlg
  45.  
  46. End Sub
  47.  
  48. Sub Form_Load ()
  49. Dim R As Integer
  50.     
  51.     
  52.     If App.PrevInstance And Command = "" Then End
  53.     If Command = "x" Then R = ExitWindows(&H0, 0)
  54.     If Command = "r" Then R = ExitWindows(EW_RESTARTWINDOWS, &H0)
  55.     If Command = "b" Then R = ExitWindows(EW_REBOOTSYSTEM, &H0)
  56.  
  57.     Screen.MousePointer = MOUSE_HOURGLASS
  58.     WindowState = WS_NORMAL
  59.     Height = EXITWIN_HEIGHT
  60.     Width = EXITWIN_WIDTH
  61.     Left = Screen.Width - EXITWIN_WIDTH
  62.     Top = Screen.Height - EXITWIN_HEIGHT
  63.     R = GetProfileInt(APP_EXITWIN, KEY_ONTOP, 1)
  64.     If R Then
  65.         SetWindowPos ExitWin.hWnd, HWND_TOPMOST, 0, 0, 0, 0, &H40
  66.         OnTop = R
  67.     End If
  68.     Screen.MousePointer = 0
  69.  
  70. End Sub
  71.  
  72. Sub ShowExitDlg ()
  73.  
  74.     Picture = pic_Opened.Picture
  75.     ExitDlg.Show
  76.  
  77. End Sub
  78.  
  79.